home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / addin.bas < prev    next >
Encoding:
BASIC Source File  |  1998-06-15  |  1009 b   |  25 lines
  1. Attribute VB_Name = "AddIn"
  2. '--------------------------------------------------------------------------
  3. ' File: ADDIN.BAS
  4. '
  5. ' This file is part of the 'Stinga sgWindow Wizard' project.
  6. ' Copyright (C) 1998 Stinga
  7. ' All rights reserved.
  8. '
  9. '--------------------------------------------------------------------------
  10.  
  11. Option Explicit
  12. Declare Function WritePrivateProfileString& Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)
  13.  
  14. '====================================================================
  15. 'this sub should be executed from the Immediate window
  16. 'in order to get this app added to the VBADDIN.INI file
  17. 'you must change the name in the 2nd argument to reflecty
  18. 'the correct name of your project
  19. '====================================================================
  20. Sub AddToINI()
  21.     Dim ErrCode As Long
  22.     ErrCode = WritePrivateProfileString("Add-Ins32", "sgWindowWizard.Connect", "0", "vbaddin.ini")
  23. End Sub
  24.  
  25.